home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / telecom / 46 / pascal / randnu.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-08-15  |  1.3 KB  |  47 lines
  1. {RANDOM NUMBER GENERATOR             GARY CURTIS NEWPORT
  2.  
  3.     PURPOSE : To generate a pseudorandom number in the open interval, (0,1).
  4.  
  5.     ALGORITHM : The linear congruential method is used.  See M. J. Merchant,
  6.                 FORTRAN 77: Language and Style, Belmont: Wadsworth, 1981,
  7.                 p. 254.
  8.  
  9.     USE :   The following global declaration is necessary:
  10.  
  11.             VAR seed : long_integer;
  12.  
  13.             Include RANDNUMS after program declarations.  At the beginning
  14.             of the program, insert the following:
  15.  
  16.             SET_RANDOM(seed);
  17.  
  18.             This seeds the random number generator, which can be called
  19.             as needed, in  the following way:
  20.  
  21.             x := RANDOM(seed);
  22.  
  23.            (Where x is any declared real variable.)
  24.  
  25. }
  26.  
  27.    procedure SET_RANDOM ( VAR seed : long_integer);
  28.  
  29.       CONST
  30.            factor = 8191;  { must be >= 0 and < 262139 }
  31.  
  32.       BEGIN {SET_RANDOM}
  33.       seed := CLOCK mod factor
  34.       END; {SET_RANDOM}
  35.  
  36.    function RANDOM ( VAR seed : long_integer): real;
  37.  
  38.       CONST
  39.            j = 5243;
  40.            k = 55397;
  41.            m = 262139;
  42.  
  43.       BEGIN {RANDOM}
  44.       seed := ((seed * j) + k) mod m;
  45.       RANDOM := (seed + 0.5)/m
  46.       END; {RANDOM}
  47. əəəəəəəəəəəəə